home *** CD-ROM | disk | FTP | other *** search
/ System Booster / System Booster.iso / Directorytools / Ordering / Install_Ordering next >
Text File  |  1996-09-26  |  4KB  |  236 lines
  1. (complete 0)
  2. (welcome)
  3.  
  4. (message
  5.     "\n\n\n\n"
  6.     "Welcome to Ordering installation script.\n"
  7. )
  8.  
  9.  
  10. (set @default-dest
  11.     (askdir (prompt "Please select destination directory for Ordering")
  12.         (help @askdir-help)
  13.         (default "SYS:")
  14.     )
  15. )
  16.  
  17. (copyfiles
  18.     (prompt "\nCopying Ordering...\n")
  19.     (help @copyfiles-help)
  20.     (source "Ordering")
  21.     (dest   @default-dest)
  22.     (files)
  23.     (infos)
  24. )
  25.  
  26.  
  27. (complete 20)
  28.  
  29. (copyfiles
  30.     (prompt "\nCopying Ordering Preferences Editor...\n")
  31.     (help @copyfiles-help)
  32.     (source "OrderingPrefs")
  33.     (dest   @default-dest)
  34.     (files)
  35.     (infos)
  36. )
  37.  
  38. (complete 40)
  39.  
  40.  
  41. (set wert1 (/ (getversion "libs/reqtools.library") 65536))
  42. (set wert2 (BITAND (getversion "libs/reqtools.library") 65535))
  43.  
  44. (set    flag 1)
  45. (if    (exists "Libs:reqtools.library" (noreq))
  46.     (
  47.         (set oldwert1 (/ (getversion "libs:reqtools.library") 65536))
  48.         (set oldwert2 (BITAND (getversion "libs:reqtools.library") 65535))
  49.         (if    (NOT(askbool
  50.                 (prompt "\nReqTools.library version "oldwert1"."oldwert2"\nis currently installed.\n\nDo you want to replace it by version "wert1"."wert2" ?\n")
  51.                 (help @askbool-help)
  52.                 (default 1)
  53.             ))
  54.             (set    flag 0)
  55.         )
  56.     )
  57.     (if    (NOT(askbool
  58.         (prompt "\nDo you want to install\nReqTools.library version "wert1"."wert2" ?\n")
  59.         (help @askbool_help)
  60.         (default 1)
  61.         ))
  62.         (set    flag 0)
  63.     )
  64.  
  65. )
  66.  
  67. (if    (= flag 1)
  68.     (copylib
  69.         (prompt "\nCopying ReqTools.library...\n")
  70.         (help @copylib-help)
  71.         (source "Libs/reqtools.library")
  72.         (dest   "Libs:")
  73.     )
  74. )
  75.  
  76.  
  77. (complete 50)
  78.  
  79. (set wert1 (/ (getversion "libs/powerpacker.library") 65536))
  80. (set wert2 (BITAND (getversion "libs/powerpacker.library") 65535))
  81.  
  82. (set    flag 1)
  83. (if    (exists "Libs:powerpacker.library" (noreq))
  84.     (
  85.         (set oldwert1 (/ (getversion "libs:powerpacker.library") 65536))
  86.         (set oldwert2 (BITAND (getversion "libs:powerpacker.library") 65535))
  87.         (if    (NOT(askbool
  88.                 (prompt "\nPowerPacker.library version "oldwert1"."oldwert2"\nis currently installed.\n\nDo you want to replace it by version "wert1"."wert2" ?\n")
  89.                 (help @askbool-help)
  90.                 (default 1)
  91.             ))
  92.             (set    flag 0)
  93.         )
  94.     )
  95.     (if    (NOT(askbool
  96.         (prompt "\nDo you want to install\nPowerPacker.library version "wert1"."wert2" ?\n")
  97.         (help @askbool_help)
  98.         (default 1)
  99.         ))
  100.         (set    flag 0)
  101.     )
  102.  
  103. )
  104.  
  105. (if    (= flag 1)
  106.     (copylib
  107.         (prompt "\nCopying PowerPacker.library...\n")
  108.         (help @copylib-help)
  109.         (source "Libs/powerpacker.library")
  110.         (dest   "Libs:")
  111.     )
  112. )
  113.  
  114.  
  115. (complete 60)
  116.  
  117. (set    flag 1)
  118. (if    (exists "Libs:whatis.library" (noreq))
  119.     (if    (NOT(askbool
  120.             (prompt "\nWhatIs.library is already installed.\n\nDo you want to replace it ?\n")
  121.             (help @askbool-help)
  122.             (default 1)
  123.         ))
  124.         (set    flag 0)
  125.     )
  126.     (if    (NOT(askbool
  127.         (prompt "\nDo you want to install WhatIs.library ?\n")
  128.         (help @askbool_help)
  129.         (default 1)
  130.         ))
  131.         (set    flag 0)
  132.     )
  133.  
  134. )
  135.  
  136. (if    (= flag 1)
  137.     (copylib
  138.         (prompt "\nCopying WhatIs.library...\n")
  139.         (help @copylib-help)
  140.         (source "Libs/whatis.library")
  141.         (dest   "Libs:")
  142.     )
  143. )
  144.  
  145.  
  146. (complete 70)
  147.  
  148. (set    flag 1)
  149. (if    (exists "S:FileTypes" (noreq))
  150.     (if    (NOT(askbool
  151.             (prompt "\nYou already have a 'FileTypes' file in S:.\n\nDo you want to replace it ?\n")
  152.             (help @askbool-help)
  153.             (default 1)
  154.         ))
  155.         (set    flag 0)
  156.     )
  157. )
  158. (if    (= flag 1)
  159.     (copyfiles
  160.           (prompt "\nCopying 'FileTypes' to S:\n")
  161.         (help @copyfiles-help)
  162.           (source "s/FileTypes")
  163.           (dest    "S:")
  164.         (files)
  165.     )
  166. )
  167.  
  168.  
  169. (complete 80)
  170.   
  171. (set    flag 0)
  172. (if    (NOT(exists "Locale:Catalogs/Français/Ordering.catalog" (noreq)))
  173.     (if    (askbool
  174.             (prompt "\n Do you want to install french catalogs ?\n")
  175.             (help @askbool-help)
  176.             (default 1)
  177.         )
  178.         (set    flag 1)
  179.     )
  180.     (set    flag 1)
  181. )
  182.  
  183. (if    (= flag 1)
  184.     (copyfiles
  185.         (prompt "\nCopying french catalogs...\n")
  186.         (help @copyfiles-help)
  187.         (source "Locale/Catalogs/Français")
  188.         (dest   "Locale:Catalogs/Français")
  189.         (all)
  190.         (files)
  191.     )
  192. )
  193.  
  194.  
  195. (complete 90)
  196.  
  197. (if     (askbool
  198.         (prompt "\n Do you want to install a documentation file ?\n")
  199.         (help @askbool-help)
  200.     )
  201.     (
  202.         (set doc
  203.             (askchoice
  204.                 (prompt "Which documentation do you want to install ?")
  205.                 (help @askchoice-help)
  206.                 (choices "English documentation" "French documentation")
  207.             )
  208.         )
  209.  
  210.         (if (= doc 0)
  211.             (set orddoc-source "Ordering_English.Guide")
  212.             (set orddoc-source "Ordering_Français.Guide")
  213.         )
  214.  
  215.         (set orddoc-dest
  216.             (askdir
  217.                 (prompt "Select directory")
  218.                 (help @askdir-help)
  219.                 (default "HELP:")
  220.             )
  221.         )
  222.  
  223.         (copyfiles
  224.             (prompt "\nCopying ducumentation...\n")
  225.             (help @copyfiles-help)
  226.             (source orddoc-source)
  227.             (dest   orddoc-dest)
  228.             (newname "Ordering.Guide")
  229.             (files)
  230.             (infos)
  231.         )
  232.     )
  233. )
  234.  
  235. (complete 100)
  236.